home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / PRINTIND.PRG < prev    next >
Text File  |  1985-12-21  |  1KB  |  49 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. * PRINTIND.PRG - PRINTS CATEGORIES FOR PROF1, PROF2, PROF3 FOR MAILING LIST
  7. * PROGRAM (C) COPYRIGHT DECEMBER 3, 1983 PHILIP K. PERLMAN
  8. CLEAR
  9. SET TALK OFF
  10. STORE 55 TO N
  11. STORE 0 TO INDEX
  12. STORE 1 TO INDIC
  13. DO WHILE INDIC <= 3
  14.   STORE 'PROF'-STR(INDIC,1) TO PROF
  15.   USE MAIL INDEX &PROF
  16.   GO TOP
  17.   STORE &PROF TO KEY
  18.   SET PRINT ON
  19.   STORE .T. TO TRUE
  20.   DO WHILE TRUE
  21.     ?
  22.     ?
  23.     ? PROF, "CATEGORIES"
  24.     ?
  25.     DO WHILE .NOT. EOF() .AND. INDEX < N
  26.       IF &PROF <> ' ' .AND. &PROF <> KEY
  27.         ? &PROF
  28.         STORE INDEX + 1 TO INDEX
  29.         STORE &PROF TO KEY
  30.       ENDIF
  31.       SKIP
  32.     ENDDO
  33.     IF INDEX >= N
  34.       EJECT
  35.       STORE 0 TO INDEX
  36.     ENDIF
  37.     IF EOF()
  38.       STORE .F. TO TRUE
  39.     ENDIF
  40.   ENDDO
  41.   SET PRINT OFF
  42.   STORE INDIC + 1 TO INDIC
  43. ENDDO
  44.  
  45.  
  46.  
  47.  
  48.  
  49.